home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / reader_requests / notes / english / notes.pprx < prev    next >
Text File  |  2000-02-23  |  14KB  |  613 lines
  1. /*
  2. @B Notes @P@ICopyright A.Faust 98
  3.  This Genie prints notes
  4. */
  5.  
  6. address command
  7.  
  8. 'execute C:AssignNotePrint'
  9.  
  10.  
  11. /* 
  12.  
  13.    The file "AssignNotePrint" in the C: directory shall be written
  14.    with a normal texteditor, like ed or AE(Articel Editor from ProPage).
  15.    There will be assigned where the Genie looks for the Notefiles.
  16.    Also will be assigned the directory, where are the genies from ProPage
  17.    are placed.
  18.  
  19.    example:
  20.    assign Notes:   Work:MyNoteFileDirectory
  21.    assign Genies:  DTP:ProPage/ARexx
  22.                    |_______________________|
  23.  
  24.                    please insert your paths here
  25.  
  26. */
  27.  
  28. call SafeEndEdit.rexx()
  29. call ppm_AutoUpdate(0)
  30. call ppm_SetWireframe(0)
  31. notex=0
  32. notey=0
  33. call ppm_SetLineWeight(0.25)
  34. call ppm_SetMagMode(300)
  35. call ppm_SetBoxOutlines(0)
  36.  
  37. signal on halt
  38. signal on break_c
  39. signal on break_e
  40. signal on break_d
  41.  
  42.  
  43. start:
  44. do
  45.   neu = ppm_GetUserText(2, "New begin? (ALL WILL BE DELETED !!!!) Nothing=Break y/n")
  46.     if neu == "Y" then neu = "y"
  47.     if neu == "N" then neu = "n"
  48.  
  49.   select
  50.     when neu == "y" then
  51.         do
  52.           call ppm_New()
  53.           call ppm_SetUnits(2)
  54.           call ppm_SetMagMode(200)
  55.           call ppm_SetFont('(CG)Times')
  56.           pgnm = ppm_CreatePage(1, 1, 0)
  57.           call ppm_SetPageType(pgnm, 4)
  58.           call ppm_SetRulerType(4)
  59.           call ppm_SetBoxLock(0, 0)
  60.           call ppm_DeleteBox(0)
  61.  
  62.         /* haedline */
  63.  
  64.         haedln = ppm_CreateBox(4, 0.2, 11.5, 1.2, 0)
  65.         call ppm_SetSize(20)
  66.         call ppm_SetStyle(U)
  67.         call ppm_SetJustification(2)
  68.         call ppm_TextIntoBox(haedln, 'Title')
  69.         end
  70.      when neu == "n" then notenlinien()
  71.      otherwise exit_msg("User Break!")
  72.   end
  73.  
  74. notenlinien:
  75.   res = ppm_GetUserText(2, "Draw Notelines ? y/n")
  76.   if res == '' then res = 'y'
  77.   if res == 'Y' then res = 'y'
  78.   if res == 'y' then
  79.   do
  80.  
  81.         call ppm_SetUnits(2)
  82.         call ppm_SetMagMode(200)
  83.         call ppm_SetFont('(CG)Times')
  84.         pgnm = ppm_CurrentPage()
  85.         call ppm_SetPageType(pgnm, 4)
  86.         call ppm_SetRulerType(4)
  87.         call ppm_SetBoxLock(0, 0)
  88.         call ppm_DeleteBox(0)
  89.  
  90.         /* Haedline */
  91.  
  92.         haedln = ppm_CreateBox(4, 0.2, 11.5, 1.2, 0)
  93.         call ppm_SetSize(20)
  94.         call ppm_SetStyle(U)
  95.         call ppm_SetJustification(2)
  96.         call ppm_TextIntoBox(haedln, 'Title')
  97.  
  98.         /* Autor */
  99.  
  100.         autor = ppm_CreateBox(13, 0.9, 6.5, 0.64, 0)
  101.         call ppm_SetSize(12)
  102.         call ppm_SetStyle(U)
  103.         call ppm_SetJustification(1)
  104.         call ppm_TextIntoBox(autor, "Autor: © Noname")
  105.  
  106.  
  107.      /* Draw Notelines */
  108.  
  109.      do a=1 to 12
  110.       do b=1 to 5
  111.        call ppm_DrawLine(0, a*2+((b-1)/5), 19.5, a*2+((b-1)/5))
  112.       end
  113.      end
  114.  
  115.      /* Notekey and bracket at front */
  116.  
  117.      call ppm_SetFont('(CG)Noten')
  118.  
  119.      violschl = ppm_CreateBox(0, 1.55, 1, 1.6, 0)
  120.      call ppm_SetStyle(N)
  121.      call ppm_SetJustification(0)
  122.      call ppm_SetSize(45)
  123.      call ppm_TextIntoBox(violschl, 't')
  124.  
  125.      bassschl = ppm_CreateBox(0.034, 3.88, 1.1, 1.1, 0)
  126.      call ppm_SetSize(30)
  127.      call ppm_TextIntoBox(bassschl, 'b')
  128.  
  129.      call ppm_SetLineWeight(4)
  130.      vl = ppm_DrawLine(0, 1.98, 0, 4.82)
  131.  
  132.      call ppm_SetLineWeight(2)
  133.      vo = ppm_DrawLine(-0.07, 2.08, 0.303, 1.7627)
  134.      vu = ppm_DrawLine(-0.07, 4.74, 0.303, 5.052)
  135.  
  136.      do c=1 to 5
  137.   call ppm_CloneBox(violschl, 0, (c*4))
  138.   call ppm_CloneBox(bassschl, 0, (c*4))
  139.   call ppm_CloneBox(vl, 0, (c*4))
  140.   call ppm_CloneBox(vo, 0, (c*4))
  141.   call ppm_CloneBox(vu, 0, (c*4))
  142.      end
  143.      vorzeichen()
  144.   end
  145.   else
  146.   do
  147.    if res == 'N' then res = 'n'
  148.    if res == 'n' then vorzeichen()
  149.    else start()
  150.   end
  151. end
  152.  
  153. noteneingabe:
  154.  
  155.  res = ppm_GetUserText(4, "Violin- or Basskey? (v/b) [from File (f)]")
  156.  resa = word(res,1)
  157.  resb = word(res,2)
  158.  if resa=='V' then resa = 'v'
  159.  if resa=='B' then resa = 'b'
  160.  if resb=='F' then resb = 'f'
  161.  select
  162.    when resa=='v' then violschl()
  163.    when resa=='b' then basschl()
  164.    otherwise noteneingabe()
  165.  end
  166.  
  167. violschl:
  168.  do
  169.  call ppm_SetFont('(CG)Noten')
  170.  select
  171.     when resb='' then
  172.     do
  173.      address command
  174.      rx 'Genies:Violinkey.rexx'
  175.     end
  176.     when resb='f' then
  177.     do
  178.      address command
  179.      rx 'Genies:Violinkey.file'
  180.     end
  181.     otherwise noteneingabe()
  182.  end
  183.  exit
  184.  end
  185.  
  186. basschl:
  187.  do
  188.  call ppm_SetFont('(CG)Noten')
  189.  select
  190.     when resb='' then
  191.     do
  192.      address command
  193.      rx 'Genies:Basskey.rexx'
  194.     end
  195.     when resb='f' then
  196.     do
  197.      address command
  198.      rx 'Genies:Basskey.file'
  199.     end
  200.     otherwise noteneingabe()
  201.  end
  202.  exit
  203.  end
  204.  
  205. exit
  206.  
  207. vorzeichen:
  208.  
  209. vorz = ppm_GetForm("The accidentals please! ENTER = no acc...", 4, "number accid.")
  210. if vorz == "" then
  211. do
  212.   k = 0
  213.   takt()
  214. end
  215.  
  216. else
  217. do
  218.    call ppm_SetFont('(CG)Noten')
  219.    call ppm_SetSize(20)
  220.    zahl = word(vorz, 1)
  221.    art  = word(vorz, 2)
  222.    yy = 0.28
  223.    j = 0
  224.   select
  225.    when art == 'b' then
  226.    do
  227.      art = 'f'
  228.      select
  229.       when zahl == '1' then
  230.        do i=1 to 6
  231.  
  232.     id = ppm_CreateBox(1, 1.95+j, 0.35, 0.75, 0)
  233.     call ppm_TextIntoBox(id, art)
  234.  
  235.     id = ppm_CreateBox(1, 4.15+j, 0.35, 0.75, 0)
  236.     call ppm_TextIntoBox(id, art)
  237.     k = 1
  238.     j = j+4
  239.        end
  240.  
  241.       when zahl == '2' then
  242.        do i=1 to 6
  243.     id = ppm_CreateBox(1, 1.95+j,  0.35, 0.75, 0)
  244.     call ppm_TextIntoBox(id, art)
  245.  
  246.     id = ppm_CreateBox(1.2, 1.65+j,  0.35, 0.75, 0)
  247.     call ppm_TextIntoBox(id, art)
  248.  
  249.     id = ppm_CreateBox(1, 4.15+j,  0.35, 0.75, 0)
  250.     call ppm_TextIntoBox(id, art)
  251.  
  252.     id = ppm_CreateBox(1.2, 3.85+j,  0.35, 0.75, 0)
  253.     call ppm_TextIntoBox(id, art)
  254.  
  255.     k = 2
  256.     j = j+4
  257.        end
  258.  
  259.       when zahl == '3' then
  260.        do i=1 to 6
  261.     id = ppm_CreateBox(1, 1.95+j,  0.35, 0.75, 0)
  262.     call ppm_TextIntoBox(id, art)
  263.  
  264.     id = ppm_CreateBox(1.2, 1.65+j,  0.35, 0.75, 0)
  265.     call ppm_TextIntoBox(id, art)
  266.  
  267.     id = ppm_CreateBox(1.4, 2.05+j,  0.35, 0.75, 0)
  268.     call ppm_TextIntoBox(id, art)
  269.  
  270.     id = ppm_CreateBox(1, 4.15+j,  0.35, 0.75, 0)
  271.     call ppm_TextIntoBox(id, art)
  272.  
  273.     id = ppm_CreateBox(1.2, 3.85+j,  0.35, 0.75, 0)
  274.     call ppm_TextIntoBox(id, art)
  275.  
  276.     id = ppm_CreateBox(1.4, 4.25+j,  0.35, 0.75, 0)
  277.     call ppm_TextIntoBox(id, art)
  278.  
  279.     k = 3
  280.     j = j+4
  281.        end
  282.  
  283.       when zahl == '4' then
  284.        do i=1 to 6
  285.     id = ppm_CreateBox(1, 1.95+j,  0.35, 0.75, 0)
  286.     call ppm_TextIntoBox(id, art)
  287.  
  288.     id = ppm_CreateBox(1.2, 1.65+j,  0.35, 0.75, 0)
  289.     call ppm_TextIntoBox(id, art)
  290.  
  291.     id = ppm_CreateBox(1.4, 2.05+j,  0.35, 0.75, 0)
  292.     call ppm_TextIntoBox(id, art)
  293.  
  294.     id = ppm_CreateBox(1.6, 1.75+j,  0.35, 0.75, 0)
  295.     call ppm_TextIntoBox(id, art)
  296.  
  297.     id = ppm_CreateBox(1, 4.15+j,  0.35, 0.75, 0)
  298.     call ppm_TextIntoBox(id, art)
  299.  
  300.     id = ppm_CreateBox(1.2, 3.85+j,  0.35, 0.75, 0)
  301.     call ppm_TextIntoBox(id, art)
  302.  
  303.     id = ppm_CreateBox(1.4, 4.25+j,  0.35, 0.75, 0)
  304.     call ppm_TextIntoBox(id, art)
  305.  
  306.     id = ppm_CreateBox(1.6, 3.95+j,  0.35, 0.75, 0)
  307.     call ppm_TextIntoBox(id, art)
  308.  
  309.     k = 4
  310.     j = j+4
  311.        end
  312.  
  313.       when zahl == '5' then
  314.        do i=1 to 6
  315.     id = ppm_CreateBox(1, 1.95+j,  0.35, 0.75, 0)
  316.     call ppm_TextIntoBox(id, art)
  317.  
  318.     id = ppm_CreateBox(1.2, 1.65+j,  0.35, 0.75, 0)
  319.     call ppm_TextIntoBox(id, art)
  320.  
  321.     id = ppm_CreateBox(1.4, 2.05+j,  0.35, 0.75, 0)
  322.     call ppm_TextIntoBox(id, art)
  323.  
  324.     id = ppm_CreateBox(1.6, 1.75+j,  0.35, 0.75, 0)
  325.     call ppm_TextIntoBox(id, art)
  326.  
  327.     id = ppm_CreateBox(1.8, 2.15+j,  0.35, 0.75, 0)
  328.     call ppm_TextIntoBox(id, art)
  329.  
  330.     id = ppm_CreateBox(1, 4.15+j,  0.35, 0.75, 0)
  331.     call ppm_TextIntoBox(id, art)
  332.  
  333.     id = ppm_CreateBox(1.2, 3.85+j,  0.35, 0.75, 0)
  334.     call ppm_TextIntoBox(id, art)
  335.  
  336.     id = ppm_CreateBox(1.4, 4.25+j,  0.35, 0.75, 0)
  337.     call ppm_TextIntoBox(id, art)
  338.  
  339.     id = ppm_CreateBox(1.6, 3.95+j,  0.35, 0.75, 0)
  340.     call ppm_TextIntoBox(id, art)
  341.  
  342.     id = ppm_CreateBox(1.8, 4.35+j,  0.35, 0.75, 0)
  343.     call ppm_TextIntoBox(id, art)
  344.  
  345.     k = 5
  346.     j = j+4
  347.        end
  348.  
  349.       when zahl == '6' then
  350.        do i=1 to 6
  351.     id = ppm_CreateBox(1, 1.95+j,  0.35, 0.75, 0)
  352.     call ppm_TextIntoBox(id, art)
  353.  
  354.     id = ppm_CreateBox(1.2, 1.65+j,  0.35, 0.75, 0)
  355.     call ppm_TextIntoBox(id, art)
  356.  
  357.     id = ppm_CreateBox(1.4, 2.05+j,  0.35, 0.75, 0)
  358.     call ppm_TextIntoBox(id, art)
  359.  
  360.     id = ppm_CreateBox(1.6, 1.75+j,  0.35, 0.75, 0)
  361.     call ppm_TextIntoBox(id, art)
  362.  
  363.     id = ppm_CreateBox(1.8, 2.15+j,  0.35, 0.75, 0)
  364.     call ppm_TextIntoBox(id, art)
  365.  
  366.     id = ppm_CreateBox(2.0, 1.85+j,  0.35, 0.75, 0)
  367.     call ppm_TextIntoBox(id, art)
  368.  
  369.     id = ppm_CreateBox(1, 4.15+j,  0.35, 0.75, 0)
  370.     call ppm_TextIntoBox(id, art)
  371.  
  372.     id = ppm_CreateBox(1.2, 3.85+j,  0.35, 0.75, 0)
  373.     call ppm_TextIntoBox(id, art)
  374.  
  375.     id = ppm_CreateBox(1.4, 4.25+j,  0.35, 0.75, 0)
  376.     call ppm_TextIntoBox(id, art)
  377.  
  378.     id = ppm_CreateBox(1.6, 3.95+j,  0.35, 0.75, 0)
  379.     call ppm_TextIntoBox(id, art)
  380.  
  381.     id = ppm_CreateBox(1.8, 4.35+j,  0.35, 0.75, 0)
  382.     call ppm_TextIntoBox(id, art)
  383.  
  384.     id = ppm_CreateBox(2.0, 4.05+j,  0.35, 0.75, 0)
  385.     call ppm_TextIntoBox(id, art)
  386.  
  387.     k = 6
  388.     j = j+4
  389.        end
  390.       otherwise vorzeichen()
  391.      end
  392.    end
  393.  
  394.    when art == '#' then
  395.    do
  396.      art = 's'
  397.      select
  398.       when zahl == '1' then
  399.        do i=1 to 6
  400.  
  401.     id = ppm_CreateBox(1, 1.67+j, 0.35, 0.75, 0)
  402.     call ppm_TextIntoBox(id, art)
  403.  
  404.     id = ppm_CreateBox(1, 3.87+j, 0.35, 0.75, 0)
  405.     call ppm_TextIntoBox(id, art)
  406.  
  407.     k = 1
  408.     j = j+4
  409.        end
  410.  
  411.       when zahl == '2' then
  412.        do i=1 to 6
  413.     id = ppm_CreateBox(1, 1.67+j,  0.35, 0.75, 0)
  414.     call ppm_TextIntoBox(id, art)
  415.  
  416.     id = ppm_CreateBox(1.2, 1.97+j,  0.35, 0.75, 0)
  417.     call ppm_TextIntoBox(id, art)
  418.  
  419.     id = ppm_CreateBox(1, 3.87+j,  0.35, 0.75, 0)
  420.     call ppm_TextIntoBox(id, art)
  421.  
  422.     id = ppm_CreateBox(1.2, 4.17+j,  0.35, 0.75, 0)
  423.     call ppm_TextIntoBox(id, art)
  424.  
  425.     k = 2
  426.     j = j+4
  427.        end
  428.  
  429.       when zahl == '3' then
  430.        do i=1 to 6
  431.     id = ppm_CreateBox(1, 1.67+j,  0.35, 0.75, 0)
  432.     call ppm_TextIntoBox(id, art)
  433.  
  434.     id = ppm_CreateBox(1.2, 1.97+j,  0.35, 0.75, 0)
  435.     call ppm_TextIntoBox(id, art)
  436.  
  437.     id = ppm_CreateBox(1.4, 1.57+j,  0.35, 0.75, 0)
  438.     call ppm_TextIntoBox(id, art)
  439.  
  440.     id = ppm_CreateBox(1, 3.87+j,  0.35, 0.75, 0)
  441.     call ppm_TextIntoBox(id, art)
  442.  
  443.     id = ppm_CreateBox(1.2, 4.17+j,  0.35, 0.75, 0)
  444.     call ppm_TextIntoBox(id, art)
  445.  
  446.     id = ppm_CreateBox(1.4, 3.77+j,  0.35, 0.75, 0)
  447.     call ppm_TextIntoBox(id, art)
  448.  
  449.     k = 3
  450.     j = j+4
  451.        end
  452.  
  453.       when zahl == '4' then
  454.        do i=1 to 6
  455.     id = ppm_CreateBox(1, 1.67+j,  0.35, 0.75, 0)
  456.     call ppm_TextIntoBox(id, art)
  457.  
  458.     id = ppm_CreateBox(1.2, 1.97+j,  0.35, 0.75, 0)
  459.     call ppm_TextIntoBox(id, art)
  460.  
  461.     id = ppm_CreateBox(1.4, 1.57+j,  0.35, 0.75, 0)
  462.     call ppm_TextIntoBox(id, art)
  463.  
  464.     id = ppm_CreateBox(1.6, 1.87+j,  0.35, 0.75, 0)
  465.     call ppm_TextIntoBox(id, art)
  466.  
  467.     id = ppm_CreateBox(1, 3.87+j,  0.35, 0.75, 0)
  468.     call ppm_TextIntoBox(id, art)
  469.  
  470.     id = ppm_CreateBox(1.2, 4.17+j,  0.35, 0.75, 0)
  471.     call ppm_TextIntoBox(id, art)
  472.  
  473.     id = ppm_CreateBox(1.4, 3.77+j,  0.35, 0.75, 0)
  474.     call ppm_TextIntoBox(id, art)
  475.  
  476.     id = ppm_CreateBox(1.6, 4.07+j,  0.35, 0.75, 0)
  477.     call ppm_TextIntoBox(id, art)
  478.  
  479.     k = 4
  480.     j = j+4
  481.        end
  482.  
  483.       when zahl == '5' then
  484.        do i=1 to 6
  485.     id = ppm_CreateBox(1, 1.67+j,  0.35, 0.75, 0)
  486.     call ppm_TextIntoBox(id, art)
  487.  
  488.     id = ppm_CreateBox(1.2, 1.97+j,  0.35, 0.75, 0)
  489.     call ppm_TextIntoBox(id, art)
  490.  
  491.     id = ppm_CreateBox(1.4, 1.57+j,  0.35, 0.75, 0)
  492.     call ppm_TextIntoBox(id, art)
  493.  
  494.     id = ppm_CreateBox(1.6, 1.87+j,  0.35, 0.75, 0)
  495.     call ppm_TextIntoBox(id, art)
  496.  
  497.     id = ppm_CreateBox(1.8, 2.17+j,  0.35, 0.75, 0)
  498.     call ppm_TextIntoBox(id, art)
  499.  
  500.     id = ppm_CreateBox(1, 3.87+j,  0.35, 0.75, 0)
  501.     call ppm_TextIntoBox(id, art)
  502.  
  503.     id = ppm_CreateBox(1.2, 4.17+j,  0.35, 0.75, 0)
  504.     call ppm_TextIntoBox(id, art)
  505.  
  506.     id = ppm_CreateBox(1.4, 3.77+j,  0.35, 0.75, 0)
  507.     call ppm_TextIntoBox(id, art)
  508.  
  509.     id = ppm_CreateBox(1.6, 4.07+j,  0.35, 0.75, 0)
  510.     call ppm_TextIntoBox(id, art)
  511.  
  512.     id = ppm_CreateBox(1.8, 4.37+j,  0.35, 0.75, 0)
  513.     call ppm_TextIntoBox(id, art)
  514.  
  515.     k = 5
  516.     j = j+4
  517.        end
  518.  
  519.       when zahl == '6' then
  520.        do i=1 to 6
  521.     id = ppm_CreateBox(1, 1.67+j,  0.35, 0.75, 0)
  522.     call ppm_TextIntoBox(id, art)
  523.  
  524.     id = ppm_CreateBox(1.2, 1.97+j,  0.35, 0.75, 0)
  525.     call ppm_TextIntoBox(id, art)
  526.  
  527.     id = ppm_CreateBox(1.4, 1.57+j,  0.35, 0.75, 0)
  528.     call ppm_TextIntoBox(id, art)
  529.  
  530.     id = ppm_CreateBox(1.6, 1.87+j,  0.35, 0.75, 0)
  531.     call ppm_TextIntoBox(id, art)
  532.  
  533.     id = ppm_CreateBox(1.8, 2.17+j,  0.35, 0.75, 0)
  534.     call ppm_TextIntoBox(id, art)
  535.  
  536.     id = ppm_CreateBox(2.0, 1.77+j,  0.35, 0.75, 0)
  537.     call ppm_TextIntoBox(id, art)
  538.  
  539.     id = ppm_CreateBox(1, 3.87+j,  0.35, 0.75, 0)
  540.     call ppm_TextIntoBox(id, art)
  541.  
  542.     id = ppm_CreateBox(1.2, 4.17+j,  0.35, 0.75, 0)
  543.     call ppm_TextIntoBox(id, art)
  544.  
  545.     id = ppm_CreateBox(1.4, 3.77+j,  0.35, 0.75, 0)
  546.     call ppm_TextIntoBox(id, art)
  547.  
  548.     id = ppm_CreateBox(1.6, 4.07+j,  0.35, 0.75, 0)
  549.     call ppm_TextIntoBox(id, art)
  550.  
  551.     id = ppm_CreateBox(1.8, 4.37+j,  0.35, 0.75, 0)
  552.     call ppm_TextIntoBox(id, art)
  553.  
  554.     id = ppm_CreateBox(2.0, 3.97+j,  0.35, 0.75, 0)
  555.     call ppm_TextIntoBox(id, art)
  556.  
  557.     k = 6
  558.     j = j+4
  559.        end
  560.       otherwise vorzeichen()
  561.      end
  562.    end
  563.   otherwise vorzeichen()
  564.   end
  565. takt()
  566. end
  567.  
  568. takt:
  569. do
  570.  call ppm_SetFont('(CG)Times')
  571.  call ppm_SetSize(16)
  572.  
  573.  takt = ppm_GetForm("Time please; ENTER=no time declaration", 4, "4/4 = "4 4" ...")
  574.  if takt ~= '' then
  575.   do
  576.    oben  = WORD(takt, 1)
  577.    unten = WORD(takt, 2)
  578.    if unten == '' then takt()
  579.    id = ppm_CreateBox(1+(k*0.3), 2,  0.3, 0.6, 0)
  580.    call ppm_TextIntoBox(id, oben)
  581.    id = ppm_CreateBox(1+(k*0.3), 2.4,  0.3, 0.6, 0)
  582.    call ppm_TextIntoBox(id, unten)
  583.    id = ppm_CreateBox(1+(k*0.3), 4,  0.3, 0.6, 0)
  584.    call ppm_TextIntoBox(id, oben)
  585.    id = ppm_CreateBox(1+(k*0.3), 4.4,  0.3, 0.6, 0)
  586.    call ppm_TextIntoBox(id, unten)
  587.   end
  588.  else NOP
  589.  call ppm_SetFont('(CG)Noten')
  590.  call ppm_SetSize(20)
  591.  call ppm_UpdateScreen()
  592.  noteneingabe()
  593. end
  594.  
  595. break_d:
  596. break_e:
  597. break_c:
  598. halt:
  599.     call exit_msg("User aborted Genie!")
  600.  
  601. exit_msg: procedure
  602. do
  603.     parse arg message
  604.  
  605.     if message ~= '' then
  606.     call ppm_Inform(1,message,)
  607.  
  608.     call ppm_ClearStatus()
  609.     call ppm_AutoUpdate(1)
  610.     exit
  611. end
  612.  
  613.